home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 …SCII & the Runetime Code / ADC Developer CD (1992-07) (''Butch ASCII And The Runtime Code'')_iso / Dev.CD 199207.iso / Development Platforms / Apple II / HyperCardIIGS / Developer Tools / APW.Interfaces / PInclude / HyperXCMD.p
Encoding:
Text File  |  1991-09-18  |  7.2 KB  |  253 lines  |  [TEXT/MPS ]
  1. { *********************************************************
  2.  
  3.   File: HyperXCMD.p
  4.  
  5.   Definition file for HyperCard XCMDs and XFCNs in Pascal
  6.   For use with HyperCard IIGS Version 1.1
  7.  
  8.   Copyright © Apple Computer, Inc. 1990-91
  9.   All Rights Reserved
  10.  
  11. ********************************************************* }
  12.  
  13. UNIT HyperXCMD;
  14.  
  15. INTERFACE
  16.  
  17. USES 
  18.   Types,
  19.    QuickDraw;
  20.  
  21. CONST 
  22.   _CallBackVector = $E10220;
  23.  
  24.   { XCMDBlock constants for event.what... }
  25.   xOpenEvt          = 1000;        { the first event after you are created }
  26.   xCloseEvt         = 1001;        { your window is being forced close }
  27.   xHidePalettesEvt  = 1004;        { someone called HideHCPalettes }
  28.   xShowPalettesEvt  = 1005;        { someone called ShowHCPalettes }
  29.   xCursorWithin     = 1300;        { cursor is within the window }
  30.  
  31.   { XWindow styles }
  32.   xWindoidStyle     = 0;
  33.   xRectStyle        = 1;
  34.   xShadowStyle      = 2;
  35.   xDialogStyle      = 3;
  36.   
  37. TYPE 
  38.   Str19 = String[19];
  39.   Str31 = String[31];
  40.  
  41.   { XWindoid event record }   
  42.   XWEventInfoPtr = ^XWEventInfo;
  43.   XWEventInfo = RECORD
  44.     eventWindow:     WindowPtr;
  45.     event:           EventRecord;
  46.     eventParams:     ARRAY[1..9] OF LongInt;
  47.     eventResult:     Handle;
  48.   END;
  49.                 
  50.   XCmdPtr = ^XCmdBlock;
  51.   XCmdBlock = RECORD
  52.     paramCount:     INTEGER;
  53.     params:         ARRAY[1..16] OF Handle;
  54.     returnValue:    Handle;
  55.     passFlag:       BOOLEAN;
  56.     userID:         INTEGER;
  57.     returnStat:     INTEGER;    { 0 if normal return, 1 for error }
  58.   END;
  59.  
  60.  
  61. (****  HyperTalk Utilities  ****)
  62. FUNCTION EvalExpr(expr: Str255): Handle;
  63. INLINE $A2,$0002,$22,_CallBackVector;
  64.  
  65. PROCEDURE SendCardMessage(msg: Str255);
  66. INLINE $A2,$0001,$22,_CallBackVector;
  67.  
  68. PROCEDURE SendHCMessage(msg: Str255);
  69. INLINE $A2,$0005,$22,_CallBackVector;
  70.  
  71.  
  72. (****  Memory Utilities  ****)
  73. FUNCTION GetGlobal(globName: Str255): Handle;
  74. INLINE $A2,$0012,$22,_CallBackVector;
  75.  
  76. PROCEDURE SetGlobal(globName: Str255; globValue: Handle);
  77. INLINE $A2,$0013,$22,_CallBackVector;
  78.  
  79. PROCEDURE ZeroBytes(dstPtr: Ptr; longCount: Longint);
  80. INLINE $A2,$0006,$22,_CallBackVector;
  81.  
  82.  
  83. (****  String Utilities  ****)
  84. FUNCTION GSStringEqual(src1: GSString255Hndl; src2: GSString255Hndl): BOOLEAN;
  85. INLINE $A2,$0022,$22,_CallBackVector;
  86.  
  87. PROCEDURE ScanToReturn(VAR scanPtr: Ptr);
  88. INLINE $A2,$001C,$22,_CallBackVector;
  89.  
  90. PROCEDURE ScanToZero(VAR scanPtr: Ptr);
  91. INLINE $A2,$001D,$22,_CallBackVector;
  92.  
  93. FUNCTION StringEqual(str1: Str255; str2: Str255): BOOLEAN;
  94. INLINE $A2,$001A,$22,_CallBackVector;
  95.  
  96. FUNCTION StringLength(strPtr: Ptr): Longint;
  97. INLINE $A2,$0003,$22,_CallBackVector;
  98.  
  99. FUNCTION StringMatch(stringPattern: Str255; target: Ptr): Ptr;
  100. INLINE $A2,$0004,$22,_CallBackVector;
  101.  
  102.  
  103. (****  String Conversions  ****)
  104. FUNCTION BoolToStr(bool: BOOLEAN): Str31;
  105. INLINE $A2,$0010,$22,_CallBackVector;
  106.  
  107. FUNCTION CopyGSString(src: GSString255Hndl): GSString255Hndl;
  108. INLINE $A2,$0020,$22,_CallBackVector;
  109.  
  110. FUNCTION GSConcat(src1: GSString255Hndl; src2: GSString255Hndl): GSString255Hndl;
  111. INLINE $A2,$0021,$22,_CallBackVector;
  112.  
  113. FUNCTION ExtToStr(extendedNumber: Extended): Str31;
  114. INLINE $A2,$0011,$22,_CallBackVector;
  115.  
  116. FUNCTION GSToPString(src: GSString255Hndl): Str255;
  117. INLINE $A2,$001E,$22,_CallBackVector;
  118.  
  119. FUNCTION GSToZero(src: GSString255Hndl): Handle;
  120. INLINE $A2,$0023,$22,_CallBackVector;
  121.  
  122. FUNCTION LongToStr(posNum: Longint): Str31;
  123. INLINE $A2,$000D,$22,_CallBackVector;
  124.  
  125. FUNCTION NumToHex(longNumber: Longint; nDigits: INTEGER): Str19;
  126. INLINE $A2,$000F,$22,_CallBackVector;
  127.  
  128. FUNCTION NumToStr(longNumber: Longint): Str31;
  129. INLINE $A2,$000E,$22,_CallBackVector;
  130.  
  131. FUNCTION PasToZero(str: Str255): Handle;
  132. INLINE $A2,$0007,$22,_CallBackVector;
  133.  
  134. PROCEDURE PointToStr(pt: Point; VAR str: Str255);
  135. INLINE $A2,$002D,$22,_CallBackVector;
  136.  
  137. FUNCTION PToGSString(src: Str255): GSString255Hndl;
  138. INLINE $A2,$001F,$22,_CallBackVector;
  139.  
  140. PROCEDURE RectToStr(rct: Rect; VAR str: Str255);
  141. INLINE $A2,$002E,$22,_CallBackVector;
  142.  
  143. PROCEDURE ReturnToPas(zeroStr: Ptr; VAR pasStr: Str255);
  144. INLINE $A2,$001B,$22,_CallBackVector;
  145.  
  146. FUNCTION StrToBool(str: Str31): BOOLEAN;
  147. INLINE $A2,$000B,$22,_CallBackVector;
  148.  
  149. FUNCTION StrToExt(str: Str31): Extended;
  150. INLINE $A2,$000C,$22,_CallBackVector;
  151.  
  152. FUNCTION StrToLong(str: Str31): Longint;
  153. INLINE $A2,$0009,$22,_CallBackVector;
  154.  
  155. FUNCTION StrToNum(str: Str31): Longint;
  156. INLINE $A2,$000A,$22,_CallBackVector;
  157.  
  158. PROCEDURE StrToPoint(str: Str255; VAR pt: Point);
  159. INLINE $A2,$002F,$22,_CallBackVector;
  160.  
  161. PROCEDURE StrToRect(str: Str255; VAR rct: Rect);
  162. INLINE $A2,$0030,$22,_CallBackVector;
  163.  
  164. FUNCTION ZeroToGS(src: Handle): GSString255Hndl;
  165. INLINE $A2,$0024,$22,_CallBackVector;
  166.  
  167. PROCEDURE ZeroToPas(zeroStr: Ptr; VAR pasStr: Str255);
  168. INLINE $A2,$0008,$22,_CallBackVector;
  169.  
  170.  
  171. (****  Field Utilities  ****)
  172. FUNCTION GetFieldByID(cardFieldFlag: BOOLEAN; fieldID: INTEGER): Handle;
  173. INLINE $A2,$0016,$22,_CallBackVector;
  174.  
  175. FUNCTION GetFieldByName(cardFieldFlag: BOOLEAN; fieldName: Str255): Handle;
  176. INLINE $A2,$0014,$22,_CallBackVector;
  177.  
  178. FUNCTION GetFieldByNum(cardFieldFlag: BOOLEAN; fieldNum: INTEGER): Handle;
  179. INLINE $A2,$0015,$22,_CallBackVector;
  180.  
  181. PROCEDURE SetFieldByID(cardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: Handle);
  182. INLINE $A2,$0019,$22,_CallBackVector;
  183.  
  184. PROCEDURE SetFieldByName(cardFieldFlag: BOOLEAN; fieldNName: Str255; fieldVal: Handle);
  185. INLINE $A2,$0017,$22,_CallBackVector;
  186.  
  187. PROCEDURE SetFieldByNum(cardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: Handle);
  188. INLINE $A2,$0018,$22,_CallBackVector;
  189.  
  190.  
  191. (****  Graphic Utilities  ****)
  192. PROCEDURE ChangedMaskAndData(whatChanged: INTEGER);
  193. INLINE $A2,$002C,$22,_CallBackVector;
  194.  
  195. PROCEDURE GetMaskAndData(VAR mask: LocInfo; VAR data: LocInfo);
  196. INLINE $A2,$002B,$22,_CallBackVector;
  197.  
  198.  
  199. (****  Miscellaneous Utilities  ****)
  200. PROCEDURE BeginXSound;
  201. INLINE $A2,$0029,$22,_CallBackVector;
  202.  
  203. PROCEDURE EndXSound;
  204. INLINE $A2,$002A,$22,_CallBackVector;
  205.  
  206.  
  207. (****  Resource Names Utilities  ****)
  208. FUNCTION FindNamedResource(resourceType: INTEGER; resourceName: Str255;
  209.                            VAR theFile: INTEGER; VAR resourceID: Longint): BOOLEAN;
  210. INLINE $A2,$0026,$22,_CallBackVector;
  211.  
  212. FUNCTION GetResourceName(resourceType: INTEGER; resourceID: Longint): Str255;
  213. INLINE $A2,$0028,$22,_CallBackVector;
  214.  
  215. FUNCTION LoadNamedResource(resourceType: INTEGER; resourceName: Str255): Handle;
  216. INLINE $A2,$0025,$22,_CallBackVector;
  217.  
  218. PROCEDURE SetResourceName(resourceType: INTEGER; resourceID: Longint; resourceName: Str255);
  219. INLINE $A2,$0027,$22,_CallBackVector;
  220.  
  221.  
  222. (****  Creating and Disposing XWindoids  ****)
  223. FUNCTION NewXWindow(boundsRect: Rect; title: Str31; visible: BOOLEAN;
  224.                     windowStyle: INTEGER): WindowPtr;
  225. INLINE $A2,$0031,$22,_CallBackVector;
  226.  
  227. PROCEDURE CloseXWindow(window: WindowPtr);
  228. INLINE $A2,$0033,$22,_CallBackVector;
  229.  
  230.  
  231. (****  XWindoid Utilities  ****)
  232. FUNCTION GetXWindowValue(window: WindowPtr): LongInt;
  233. INLINE $A2,$0037,$22,_CallBackVector;
  234.  
  235. PROCEDURE HideHCPalettes;
  236. INLINE $A2,$0034,$22,_CallBackVector;
  237.  
  238. PROCEDURE ShowHCPalettes;
  239. INLINE $A2,$0035,$22,_CallBackVector;
  240.  
  241. PROCEDURE SetXWIdleTime(window: WindowPtr; interval: LongInt);
  242. INLINE $A2,$0032,$22,_CallBackVector;
  243.  
  244. PROCEDURE SetXWindowValue(window: WindowPtr; customValue: LongInt);
  245. INLINE $A2,$0036,$22,_CallBackVector;
  246.  
  247. PROCEDURE XWAllowReEntrancy(window: WindowPtr; allowSysEvts: BOOLEAN; allowHCEvts: BOOLEAN);
  248. INLINE $A2,$0038,$22,_CallBackVector;
  249.  
  250.  
  251. IMPLEMENTATION
  252. END.
  253.